#
navbarPage("MS",
    tabPanel("Symbols",
        sidebarPanel(
            dateInput('date',
                label = 'Date input: yyyy-mm-dd',value = Sys.Date()),
                dateRangeInput('dateRange',
                    label='Date range input: yyyy-mm-dd',
                    start=Sys.Date()-2,end=Sys.Date()+2),
                numericInput(inputId = "tbs",
                    label = "Number of view:",value = 5)
            ),
            mainPanel(
                verbatimTextOutput("dateText"),
                verbatimTextOutput("dateRangeText"),
                DT::dataTableOutput("symbol")
            )
        ),
    tabPanel("Scans",
        sidebarPanel(
            textInput(inputId = "caption",
                label = "Caption:",
                value = "Data Summary"),
            selectInput(inputId = "dataset",
                label = "Choose a dataset:",
                choices = c("rock", "pressure", "cars")),
            numericInput(inputId = "obs",
                label = "Number of observations to view:",value = 10)
        ),
        mainPanel(
            h3(textOutput("caption", container = span)),
                verbatimTextOutput("summary"),
                tableOutput("scan")
          )
      ),
      tabPanel("Views",
            sidebarPanel(
                textInput("stock","Stock Symbol",value="^DJI"),br(),
                dateRangeInput("dtRange","Date Range",start=Sys.Date()-90,end=NULL,min=NULL,max=NULL,format="yyyy-mm-dd",startview="month",weekstart=0,language="en",separator="to")
            ),
            mainPanel(
                plotOutput('view', height="600px")
            )
        ),
      tabPanel("Us.",
            verbatimTextOutput("us")
        )
           
)